home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Utilities / Laplace / Projects / physic_PI_11 < prev    next >
Text File  |  1996-06-28  |  746b  |  48 lines
  1. #LAPLACE
  2. #USEFLOAT=FALSE
  3. #SIMPLIFY=TRUE
  4. #ERRBND=15
  5. #EXPDSP=5
  6. #PREC=8
  7. #F1=f(x)=
  8. #F2=g(x)=
  9. #F3=h(x)=f(x)/g(x)
  10. #F4=matrix(
  11. #F5=vector(
  12. #F6=diff(f)
  13. #F7=diff(g)
  14. #F8=diff(h)
  15. #F9=taylor(f,0)
  16. #F10=taylor(f,1)
  17. #F11=%(run type s:startup-sequence)
  18. #F12=
  19. #F13=
  20. #F14=
  21. #F15=
  22. #F16=
  23. #F17=
  24. #F18=
  25. #F19=
  26. #F20=
  27. L=0.357
  28. g=9.81
  29. v_1=sqrt(2*g*L)
  30. m_1=5e-3
  31. m_2=0.110+0.027
  32. v_2(m_2)=v_1*m_1/(m_1+m_2)
  33. v=v_2(m_2)
  34. dv_2(m_2)=abs(diff(v_2))*3e-3
  35. dv_2(m_2)
  36. 1/2*(m_1,m_2)*v_2(m_2)^2
  37. x_0(m,v,D)=v*sqrt(m/D)
  38. m=m_1+m_2
  39. D=3.24
  40. x_0(m,v,D)
  41. dx_0(m,v,D)=sqrt( (diff(x_0,m)*3e-3)^2 + (diff(x_0,v)*0.2e-2)^2 + (diff(x_0,D)*0.38)^2) )
  42. a(m,v,D)=(diff(x_0,m)*3e-3)^2
  43. b(m,v,D)=(diff(x_0,v)*0.2e-2)^2
  44. c(m,v,D)=(diff(x_0,D)*0.38)^2
  45. dx_0(m,v,D)=sqrt(a(m,v,D) + b(m,v,D) + c(m,v,D) )
  46. dx_0(m,v,D)
  47.  
  48.